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INTRODUCTION 


y  The  YR  Computer  Program  •  *s  developed  to  Improve  response  time  for  preparing 
unit  cost  estimates  for  multiyear  buys  of  the  120-mm  ammunition  used  in  the  M1E1 
tank. 


Prior  to  the  development  of  this  program,  the  yearly  unit  cost  of  each  com¬ 
ponent  common  to  two  or  more  rounds  and  subject  to  a  learning  curve  was 
calculated  separately.  In  addition,  a  separate  learning  curve  was  used  for  each 
vendor.  The  unit  costs,  thus  obtained,  were  combined  with  other  cost  data  to 
obtain  the  yearly  total  and  unit  cost  for  each  round.  Written  in  the  Hewlett- 
Packard  Basic  language,  the  YR  program  combines  the  input  cost  data  and  prints 
out  yearly  cost  estimates  in  one-fifth  of  the  time^  previously  required.  The 
progara  also  escalates  the  estimates  to  then  year and  '"“constant  year'^  dollars. 


The  program  avoids  introduction  of  errors  by  eliminating  the  necessity  for 
manual  transfer  of  data  from  one  set  of  calculations  to  another.  It  also  pro¬ 
vides  a  printout  of  input  data  for  review  and  correction  before  continuing  with 
the  calculations. 


Instructions  for  using  the  program  are  given  ybe-tew;  a  flow  chart  is 
contained  In  appendix  A. 


INSTRUCTIONS* 


Organize  data  for  entry  into  the  program  by  the  use  of  data  sheets  similar 
to  the  one  shown  in  appendix  B.  Then: 

1.  Enter  the  YR  Rro<;ram  in  the  computer  memory. 

2.  Press  the  RUN  key  to  start  the  program.  YR  PROGRAM  will  appear  on  the 

CRT. 

3.  A  printout  on  the  CRT  will  request  inputs  and  list  instructions. 
Requested  Information  is  to  be  typed  in  and  entered  by  pressing  CONT  key. 

Note:  Data  items  and  character  lengths  should  be  limited  as  follows: 
round  designation-5,  number  of  rouuds-B,  components/round-10 , 
vendors/component-3,  component  name-15,  number  of  years-25. 

4.  Entered  information  will  appear  on  the  CRT. 


*  This  software  program  has  been  written  in  the  Basic  language  used  in  the 
Hewlett  Packard  9845T  desk  calculi) of.  Modification  may  be  required  for 
use  on  machines  using  a  different  dialect. 
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5.  After  a  group  of  inputs  has  been  entered,  a  printout  on  the  CRT  will  ask 
if  the  inputs  are  correct: 

o  If  the  inputs  are  correct,  then  the  answer  (yes)  is  indicated  by 
keying  in  CONT.  The  program  will  then  continue. 

o  If  the  inputs  are  not  correct,  then  the  answer  (no)  is  indicated  by 
keying  in  0.  The  program  will  then  go  back  and  rerequest  the  last  group  of 
inputs.  When  an  item  of  data  that  was  previously  entered  correctly  is 
rerequested,  keying  in  CONT  will  reenter  it  without  change.  Data  is  corrected  by 
typing  in  the  correct  data  when  requested  and  pressing  CONT,  per  step  3,  above. 
The  Incorrect  data  will  remain  on  the  CRT,  but  the  corrected  inputs  will  also 
appear  on  the  CRT  as  they  are  reentered. 

6.  When  all  the  data  item  inputs  for  a  specific  round  have  been  entered, 
these  inputs  will  be  printed  on  paper.  (A  typical  printout  is  shown  in  appendix 
B.)  A  printout  on  the  CRT  will  ask  if  these  inputs  are  correct.  The  procedure 
listed  in  stop  3,  above,  will  apply  for  approval  or  correction  of  the  printed 
data. 


7.  When  the  data  for  all  rounds  have  been  entered  and/or  corrected,  the 
required  calculated  costs  will  be  printed  on  paper. 


SOFTWARE 

Tiie  software  for  the  program  is  contained  in  appendix  C. 


REFINEMENT 


The  YR  Program  Ls  currently  being  revised  to  interact  with  a  mass  storage  so 
that  learning  curve  first  unit  costs,  fixed  costs,  and  escalation  factors  can  be 
retrieved  for  use  without  manual  re-entry,  if  ammunition  quantity  changes  require 
re-.; ilculation  of  yearly  costs.  It  is  also  being  translated  into  GW-Basic  for 
use  in  WYSE  personal  computers. 

A  possible  refinement  is  modification  of  the  program  to  determine  the  quan¬ 
tity  of  a  designated  round  that  can  be  obtained  for  a  set  dollar  value.  The 
quantities  of  other  rounds  using  common  components  must  be  known  for  this  refine¬ 
ment. 


The  program  as  written  reserves  storage  for  up  to  a  maximum  of  eight  rounds, 
each  with  up  to  ten  components  made  by  three  possible  vendors.  The  program  can 
be  modified  so  the  reserved  storage  for  these  input  data  items  can  be  expanded 
an  1  contracted  within  the  storage  capability  of  the  computer. 
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TEAR  OF _ 

ESCALATE  TO  “IKIN'”  Tr. 
ROUND _ OF _ 


BUT  QTT . _ 

P4A  COST  $ _ 

NUMBER  OF  COMPONENTS 


-  PAT  A  S»££T 

ESCALATE  TO  CONST.  Tr. _ 

BY  FACTOR  OF _  BUT  Tr. 

ROUND  DESIGNATION _ _ 


$  BY  FACTOR  OF 


REF.  QTY._ 
QA  COST  $_ 


COMPONENT  DESIGNATION : 


PROC.  FACTOR _ Z 

COMMON  W/DES1C. _ 

1  LEARNING 


UNIT  COST  $ _ 

Ut.U.  COST  $ 


COMPONENT  DESIGNATION 


PROC.  FACTOR _ Z 

COMMON  W/DESIC. _ 

Z  LEARNING 


COMPONENT  DESIGNATION: 


PROC.  FACTOR _ Z 

COMMON  U/DESIC. _ 

Z  LEARNINC 


UNIT  COST  S _ 

Ut.U.  COST  $ 


COMPONENT  DESIGNATION : 


PROC.  FACTOR _ Z 

COMMON  W/DESIC. _ 

Z  LEARNINC  _ 

VENDOR  No.  _ 

:  cf  3j\ 

PR. OR  QTT . 


UNIT  COST  $ _ 

Ut.U.  COST  S 


FAA  QTT. _ 

ESIP  COST  $ 


COMPONENT  DESIGNATION: 


PROC.  FACTOR _ Z 

UNIT  COST  $ 

COMMON  U/DESIC. _ 

Ut.U.  COST  $ 

Z  LEARNING 

COMPONENT  DESIGNATION: 


PROC.  FACTOR _ Z 

COMMON  U/DESIC. _ 

Z  LEARNING 


UNIT  COST  $ _ 

Ut.U.  COST  $ 


COMPONENT  DESIGNATION 


COMPONENT  DESIGNATION 


PROC.  FACTOR _ Z 

COMMON  U/DESIC. _ 

X  LEARNINC 


UNIT  COST  $ _ 

Ut.U.  COST  $ 


COMPONENT  DESIGNATION: 


.  * ,  ■  . V  v  V.'A  A'/. 


vendor  n 


Z  OF  BUY 


PRIOR  Q7Y. 


PROC.  FACTOR  Z 

UNIT  COST  $ 

COMMON  U/DESIC. 

Ut.U.  COST  S 

Z  LEARNINC 

UNIT  COST  S  j 

PROC.  FACTOR  Z 

UNIT  COST  $ 

Ut.U.  COST  $ 

COMMON  U/DESIC. 

Ut.U.  COST  $ 

Z  LEARNING 

PROC.  FACTOR _ X 

UNIT  COST  $ 

COMMON  U/DESIC. 

Ut.U.  COST  $ 

Z  LEARNINC 

ROUND  XH829 


BUY  YEAR  1989 


BUY  QTY*  41008  PRIOR  BUY  QTY-  9888 

REF  QTY*  1290  PfcA  QTY*  4894 

Pifl  COST**  242989  Q  A  COST-*  13660  ESIP  COST*  4  .*  HARDWARE  COST 


LAP  *  COMPONENT  1  OF  9 

PROCUREMENT  FACT.  3  X 

COMPONENT  NOT  SHARED 

VENDOR  1  OF  3 

U  OF  BUY  BY  VENDOR  100  X 

VENDOR  2  OF  3 

X  OF  BUY  BY  VENDOR  0  X 

VENDOR  3  OF  3 

X  OF  BUY  BY  VENDOR  0  X  '  . 

MPTS  COMPONENT  2  OF  * 

PROCUREMENT  FACT.  4  X 

COMPONENT  NOT  SHARED 

VENDOR  1  OF  3 

X  OF  BUY  BY  VENDOR  50  X 

VENDOR  2  OF  3 

*  OF  BUY  BY  VENDOR  50  X 

VENDOR  3  OF  3 

X  OF  BUY  BY  VENDOR  0  * 

CORE  COMPONENT  3  OF  9 

PROCUREMENT  FACT.  4  X 

COMPONENT  NOT  SHARED 

VENDOR  1  OF  3 

V.  OF  BUY  BY  VENDOR  50  X 

VENDOR  2  OF  3 

X  OF  BUY  BY  VENDOR  50  X 

VENDOR  3  OF  3 

V.  OF  BUY  BY  VENDOR  0  X 

CRTG  CASE  COMPONENT  4  OF  9 

PROCUREMENT  FACT.  5  X 

SHAPED  DESIC.  1  1st  UC-*  86.26 

VENDOR  1  OF  3 

•/.  OF  BUY  BY  VENDOR  50  X 

VENDOR  2  OF  3 

X  OF  BUY  BY  VENDOR  50  X 

VENDOR  3  OF  3 

X  OF  BUY  BY  VENDOR  0  X 

PROP  CHARGE  COMPONENT  9  OF  9 

PROCUREMENT  FACT.  4  X  '  ■ 

C  BASE  t  SEAL  COMPONENT  6  OF  9 

PROCUREMENT  FACT.  2  X 

SHARED  DESIG.  2  1st  UC**  354.01 

VENDOR  1  OF  3 

V.  OF  BUY  BY  VENDOR  50  X 

VENDOR  2  OF  3 

X  OF  BUY  BY  VENDOR  50  X 

VENDOR  3  OF  3 

V.  OF  BUY  BY  VENDOR  0  X 

PRIMER  COMPONENT  7  OF  <J 

PROCUREMENT  FACT.  3  V. 


COMP.  UC-*  0 

l»t  UC-*  '291.7  j  LEARNING-  98  X 
PRIOR  QTY  BY  VENDOR  12246.7 
PRIOR  QTY  BY  VENDOR  0 
PRIOR  QTY  BY  VENDOR  0 
COMP.  UC-*  0 

1st  UC-*  1099.29  LEARNING-  90  X 
PRIOR  QTY  BY  VENDOR  6182.8 
PRIOR  QTY  BY  VENDOR  6182.8 
PRIOR  QTY  BY  VENDOR  0 
COMP.  UC-*  0 

1st  UC-t  2409.88  LEARNING*  90  X 
PRIOR  QTY  BY  VENDOR  6182.8 
PRIOR  QTY  BY  VENDOR  6182.8 
PRIOR  QTY  ^Y  VENDOR  0 

COMP.  UC-*  0 
LEARNING-  90  X 

PRIOR  QTY  BY  VENDOR  23262.75 

PRIOR  QTY  BY  VENDOR  23262.75 

PRIOR  QTY  BY  VENDOR  0 

COMP.  UC-*  170.  14 

COMP.  UC-*  0 
LEARNING-  90  X 

PRIOR  QTY  BY  VENDOR  28199.65 
PRIOR  QTY  BY  VENDOR  28159.65 
PRIOR  QTY  BY  VENDOR  0 

COMP.  UC-*  6.61 


TRACER 


COMPONENT  8  OF  9 


N.  V 


PROCUREMENT  FACT.  5  X 


COMP.  UC-*  1.14 


PACKAGING  COMPONENT  9  OF  9 

PROCUREMENT  FACT.  3  X 

SHARED  DESIG.  3  1st  UC-*  143.94 

VENDOR  1  OF  3 

X  OF  BUY  BY  VENDOR  50  X 

VENDOR  2  OF  3 

V.  OF  BUY  BY  VENDOR  50  X 

VENDOR  3  OF  3 

X  OF  BUY  BY  VENDOR  0  X 


COMP.  UC-*  0 
LEARNING-  90  X 

PRIOR  GTY  BY  VENDOR  22819.65 
PRIOR  QTY  BY  VENDOR  22819.65 
PRIOR  QTY  BY  VENDOR  0 
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XM829 


BUY  YEfiR  1985 


ROUND, 

BUY  QUANTITY,  41000 


REFERENCE  QUANTITY, 

129C 

PLA  QUANTITY, 

4634 

COMPONENT 

QTY. 

UNIT  COST 

COST 

LAP 

48332. 

*  31.78 

2303711.77 

MPTS 

48822. 

*  240.87 

* 

11759466.42 

CORE 

48822. 

*  350.04 

$ 

26854137.67 

CRTG  CASE 

49291. 

»  15.91 

* 

784188.61 

PROP  CHARGE 

48822. 

*  170.14 

8306534.25 

C  BASE  1  SEAL 

47883. 

*  61.24 

2932248.60 

PRIMER 

48332. 

*  6.61 

* 

319608.84 

TRACER 

49291. 

♦  1.14 

56191.97 

PACKAGING 

48332. 

*  26.63 

* 

1287389,70 

total  hardware  COST 

» 

* 

54803477.83 

PLA  COST, 

* 

242985.00 

QA  COST, 

* 

13660.00 

ESIP  COST, 

* 

2192139. 1 1 

TOTAL  BUY  COST, 

$ 

57252261.94 

ROUND  UNIT  COST,  *  1396.40 

ESCALATED  TO  CONSTANT  FY  1984.00 

DOLLARS  BY  FACTOR 

OF 

1.  18 

COMPONENT 

OTY. 

UNIT  COST 

COST 

LAP 

48352. 

* 

61.28 

$ 

2959136.94 

MPTS 

48822. 

# 

284.68 

* 

13898513.36 

CORE 

48822. 

t 

650.  18 

* 

31738985.31 

CRTG  CASE 

49291. 

* 

18.80 

t 

/  926832.52 

PROP  CHARGE 

48822. 

* 

201.89 

$ 

9817492.83 

C  BASE  «.  SEAL 

47883. 

$ 

72.38 

* 

3465624.62 

PRIMER 

48352. 

* 

7.81 

» 

* 

377745.68 

TRACER 

49291. 

1.35 

* 

66413.29 

PACKAGING 

48352. 

* 

31.47 

♦ 

1521563.89 

* 

TOTAL  HARDWARE 

COST 

* 

64772230.44 

PtA  COST 

* 

287183.97 

OA  COST 

* 

16144.75 

ESIP  COST 

* 

2598889.22 

TOTAL  BUY  COST 

* 

67666448.39 

ROUND  UNIT  COST,  *  1658.40 

ESCALATED  TO  THEN  YR  DOLLARS  BY  FACTOR  OF  i.24 


COMPONENT 

OTY. 

UNIT  COST 

COST 

LRP 

48352. 

* 

64.85 

9  3096841.09 

MPTS 

48822. 

* 

297.93 

9  14545284.62 

CORE 

48822. 

9 

680.35 

9  33215882.88 

CRTG  CRSE 

49291. 

* 

19.68 

*  969962.89 

PROP  CHARGE 

48822. 

* 

210.45 

9  10274352.21 

C  BASE  «.  SEAL 

47883. 

9 

75.75 

9  3626898.29 

PRIMER 

48352. 

9 

8. 18 

f  395324.17 

TRACER 

49291. 

1 

9 

1.41 

*  69503.85 

PACKAGING 

48352. 

9 

32.93 

♦  1592372.33 

TOTAL  HARDWARE 

COST 

*  67786421.72 

PLA  COST 

• 

9  300548.15 

QA  COST 

9  16896.05 

ESIP  COST 

% 

*  2711456.87 

TOTAL  BUY  COST 

*  , 

9  70815322.79 

ROUND  UNIT  COST,  *  1727.20.  ‘ 


10  OPTION  BASE  1 

20  PRINTER  IS  IS 

30  PRINT  "YR  PROGRAM" 

40  STANDARD 

30  DIM  Rnd*<81C53 , Byqt <81 , Prqt <81 ,Rf qt <8 > ,P»qt <8> , Yr <25> 

60  DIM  P*st<8),Q«*t<8),E»*t<8)1U<8>,B»<6, 10 > , Vt < 8, 10, 3 > , Vp< 8 , 1 0 < 

70  DIM  Cop*<8,  10>f  153,Pf<e,  101,Ucc«rip<8,  10>,Cmps<8,  10),  Iuc<8,  10) 

00  DIM  Vpqt<8, 10,3>,Vct(8, 1 0, 3) ,  B ( 8 , 10>,L<8, 1 0) , V<  8, 10> 

90  INPUT  "ENTER  NUMBER  OF  YEARS  CONS  1 DERED " , Sy 

100  INPUT  "ESCALATION  TO  CONSTANT  YR  *  REQD  ?  YES  ?  ENTER  YEAR.  NO  ?  ENTER  0. “ 
.  Yrc 

110  IF  Yrc -0  THEN  130 

120  INPUT  "ENTER  ESCALATION  F ACTOR Esc < 1 > 

130  FOR  T-l  TO  Sy 

140  IF  T  > 1  THEN  170 

150  INPUT  "ENTER  1st  YEAR  CONS  I DERED" , Yrs 

160  GOTO  200 

170  Yrs-Yrs+1 

180  PRINTER  IS  16 

190  STANDARD 

200  PRINT  "  "|Yrs,“YEAR“;T;“OF“;Sy,LIN<l> 

210  INPUT  "ESCALATION  TO  THEN  YR  t  REQD  7  YES  ?  ENTER  FACTOR.  NO  ?  ENTER  0.",E 
sc  ( 2 ) 

220  IF  T > 1  THEN  240 

230  INPUT  "ENTER  NUMBER  OF  ROUNDS  CONS  1 DERED. ", W 
240  FOR  X* 1  TO  U 

250  IF  T  > 1  THEN  270 

260  INPUT  "ENTER  ROUND  DES IGNAT  I  ON. " , Rnd* < X > 

270  Prqt <X>-Byqt <X)+Prqt <X) 

260  PRINT  RndS(X) 

290  INPUT  "ENTER  BUY  QUANT  I T Y “ , Byqt < X > 

300  IF  Byqt  <X)»0  THEN  1020 
310  IF  T >  1  THEN  330 

320  INPUT  "ENTER  PRIOR  BUY  QUANT  I TY. ", Prqt ( X > 

330  INPUT  "ENTER  REFERENCE  QUANT  I T Y . " , Rf ql < X > 

340  INPUT  “ENTER  PROOF  1  ACCEPTANCE  QUANT Y .", Poql < X > 

330  INPUT  "ENTER  PROOF  l  ACCEPTANCE  COST . " , P*st < X > 

360  INPUT  “ENTER  QA  COST . " , Q«s t <X> 

370  INPUT  "ENTER  ESIP  COST,  IF  7.  OF  HARDWARE  ENTER  X.",Esst(X> 

380  PRINT  "BUY  QT Y . - " ; Byqt < X > , " PR  I  OR  BUY  QT Y . - " J Pr ql < X > 

390  PRINT  "REF.  QT Y . - " ; Rf qt < X ) , "PIA  QTY. «" ; P«qt  <X> 

400  IF  Essl <  X ) < 1 00  THEN  430 

410  1>RINT  "P*A  COST«*";P«st <X>, "QA  COST-* " ;  Q»st  <  X  )  ,  "  ES I P  COST-*  "  ;  Ess  t  <  X  > ,  L I  N<  1 
) 

420  GOTO  440 

430  PRINT  "PtA  COST-*“;P»st(X),  "QA  COST-*  "  ;  Qsst  <  X  > ,  “  ES  1 P  COST- "  ;  Esst  <  X>  ;  "  5c"  ,  L I 
N<  1  > 

440  INPUT  "ARE  INPUTS  CORRECT  7  1-YES, 0-NO" , Ans 
430  IF  AnsOl  THEN  280 

460  IF  Prqt  <X>»0  THEN  480 

470  IF  T > 1  THEN  490 

480  INPUT  “ENTER  THE  NUMBER  OF  COMPEHENTS. ” , U<X> 

490  FOR  Y-l  TO  U<X) 

500  IF  Prqt  <X)-@  THEN  320 
310  IF  T > 1  THEN  530 

520  INPUT  “ENTER  COMPONENT  NAME .", Cop* < X, Y > 

530  PRINT  CPP*<X,Y>, "COMPONENT  * ; Y; " OF " ; UCX > 

540  INPUT  "ENTER  PROCUREMENT  FACTOR  ", Pf < X, Y > 

350  L<X, Y)-(Byqt  <X)+Rfqt <X > *P»ql < X > ) * <1 ♦ . 0 1 *Pf ( X, Y >  > 

560  INPUT  "ENTER  COMPONENT  UNIT  COST, ENTER  0  IF  UNKNOWN ", Uc cap C X, Y > 

370  IF  UccspCX, Y) >0  THEN  730 

380  INPUT  "OTHER  RND. SHARE  COMPONENT?  NO-0,  IF  YES  ENTER  SHARED  DESI G" , Cops < X, Y 
) 

390  IF  Cops<X, Y>-0  THEN  700 
600  F-X 
610  G-Y 


628  S»C»p»(X,Y> 

630  X«X-1 

640  IF  X«0  THEN  670 

650  IF  Byqt (X>»0  THEN  630 

660  GOTO  2520 

670  X»F 

600  Y-G 

690  IF  Prqt (X)»0  THEN  2600 

700  INPUT  "ENTER  1ST.  UNIT  COST “ , I uc < X , Y > 

710  INPUT  "ENTER  7.  LEARN I NG.  " ,  B«<  X ,  Y ) 

720  B(X,Y)«<-2+LGT(B»<X,Y)))xLGT<2> 

730  PRINT  "PROCUREMENT  FACT.  ";Pf(X,Y>;  "COMP.  UC«*  "  J  Uc  c  mp  (  X,  Y  > 

740  IF  UccopCX,  Y>>0  THEN  790 

750  PRINT  "COMPONENT  COMMON  C»p*  <  X,  Y>  1  *t  UC»t “ J  I  uc  <  X ,  Y  >  ,  “LEARN.  "  ;  B*<  X ,  Y);  11  7. 
" i L IN ( 1 > 

760  GOTO  790 

770  PRINT  "COMPONENT  USED  IN  COMMON  WITH  PRIOR  ROUND”. 

780  Vp<X,Y)«l 

790  INPUT  "ARE  THE  INPUTS  CORRECT  ?  1 ■ YES, 0-NO " , An* 

000  IF  An»«0  THEN  520 

810  IF  Vp<X,Y)«l  THEN  1000 

820  IF  UccxpCX, Y)>0  THEN  1000 
830  FOR  Z«1  TO  3 

840  IF  ZOl  THEN  870 

850  INPUT  "VENDOR  Nol  TO  MFG.  WHAT  5c  OF  BUY  “> " ,  Vt  <  X ,  Y,  Z  > 

860  GOTO  910 

870  IF  Z<  >2  THEN  900 

880  INPUT  "VENDOR  2  TO  MFG.  WHAT  5c  OF  BUY  ?" ,  Vt  (X,  Y,  Z> 

890  GOTO  910 

900  INPUT  "VENDOR  3  TO  MFG.  WHAT  5c  OF  BUY  ?",VtCX,Y ,Z> 

910  VctCX.Y.ZJ-VtCX.Y.Zl^.Ol 
920  IF  T  >1  THEN  940 

930  INPUT  “PRIOR  PRODUCTION  BY  VENDOR  ?" , Vpqt  < X, Y, 2> 

940  NEXT  2 
950  FOR  Z«1  TO  3 

960  PRINT  "VENDOR"  ;  Z;  "TO  PRODUCE  "  J  Vt  <  X,  Y,  Z  >  J  ”  5c  OF  BUY.  PRIOR  PRODUCT  I  DN=  Vpqt 
<X, Y,Z) 

970  NEXT  Z 

980  INPUT  "ARE  THE  INPUTS  CORRECT  ?  1 « YES , 0»NO ” , An» 

990  IF  Ar.*«0  THEN  830 

1000  PRINT 

1010  NEXT  Y 

1020  GOSUB  2160 

1030  NEXT  X 

1040  FOR  X«1  TO  W 

1050  IF  Byqt(X)>0  THEN  1200 

1060  FOR  Y«1  TO  U<X) 

1070  B«B<X,Y> 

1080  Lc  *L  <  X ,  Y ) 

1090  IF  Uc  c np ( Xf  Y ) >0  THEN  1170 
1100  IF  Cmps <  X ,  Y ) >0  THEN  1220 
1110  GOTO  1370 
1120  N*Vpqt<X,Y,Z>+.5 
1130  M-Lc+N 

1140  K-CLc«(B+l >^<M*<B»1 >-N-<B+l > ) >~< l'-B> 

1150  UccupCX, Y)»Iuc <X, V)»K'B 
1160  GOTO  1430 

1170  Cp»t  <X,  Y>-Ucc*.p<X,  Y)»l<X,  Y> 

1100  IF  C»p*(X, YO >0  THEN  1480 

1190  NEXT  Y 

1200  NEXT  X 

1210  GOTO  1650 

1220  F«X 

1230  G* Y 

1240  S«C»p»<X,Y> 

1250  X-X*l 


U 


1260  IF  X>U  THEN  1350 
1270  IF  Byqt ( X  >  *0  THEN  1250 
1200  Y»1 

1290  IF  S'Caps <  X ,  Y  >  THEN  1330 
1300  Y*  Y+ 1 

1310  IF  Y>U<X)  THEN  1250 

1320  COTO  1290 

1330  Lc "L  <  X , Y ) *Lc 

1340  COTO  1250 

1350  X»F 

1360  Y*G 

1370  Lu*Lc 

1380  Uc  *0 

1390  FOR  2*1  TO  3 

1400  IF  Vet  <X,Y,Z>*0  THEN  1450 

1410  Lc*Lv»Vct<X,Y,Z) 

1420  COTO  1120 

1430  Uc*Ucc»p<X,Y)*Vct<X, Y,Z>*Uc 
1440  Vpqt<X,Y,Z>-Le*Vpqt <X, Y,Z> 

1450  NEXT  Z 

1460  Uc  c  »p  <  X , Y ) *Uc 

1470  COTO  1170 

1480  F  *X 

1490  C* Y 

1500  S*Cmp* ( X,  Y > 

1510  H*Uc  c  «p  <  X , Y  > 

1520  X*X+1 

1530  IF  X>U  THEN  1620 
1540  IF  Byqt  <  X  >  *0  THEN  1520 
1550  Y* 1 

1560  IF  S*C«p*<X,Y)  THEN  1600 
1570  Y-Y+l 

1580  IF  Y  >U<  X )  THEN  1520 

1590  COTO  1560 

1600  Uc  c  »p<  X , Y ) *H 

1610  GOTO  1520 

1620  X-F 

1630  Y»C 

1640  COTO  1190 

1650  FOR  X* 1  TO  U 

1660  IF  Byqt  <  X ) *0  THEN  1750 

1670  Hwit <  X ) «0 

1680  FOR  Y* 1  TO  U<X) 

1690  Hu*t<X)*Hw*l<X>*Cp»t<X,Y> 

1700  NEXT  Y 

1710  IF  E*»t<X>>100  THEN  1730 
1720  E»*t <X)*Hw*t <X)*.01*E»»t(X) 

1730  Rd»t<X)*Hw*t<X)+P«»t<X>*Q*»tCX)+E*»t(X> 

1740  R*t <X)»Rd»t (Xl'Byqt <X> 

1750  NEXT  X 
1760  FIXED  2 
1770  PRINTER  IS  0 
1780  FOR  X»1  TO  U 
1790  STANDARD 
1800  E»*CHR*<27> 

1810  PRINT  PACE, E*l"H<  1SROUND, ",Rnd*CX> , "BUY  YEAR  * ; Yr* , L I N( 2 > 
1820  IF  Byqt  <X>  >0  THEN  1870 
1838  PRINT 

1840  PRINT  "THERE  IS  NO  BUY  OF  ";Rnd*CX>;"  IN  YEAR" ; Yr* 

1850  PRINT  Ed"6k0S»»»**»»*»*»**»*»*«**«***»*«*****" 

1860  COTO  2130 

1870  PRINT  Ed "Ik 0SBUY  QUANT  1 T Y , " , Byqt < X > , L I N ( 1 ) 

1880  PRINT  "REFERENCE  QUANT  1 TY, " , Rf qt < X > , L I N< 1 > 

1890  PRINT  "  Pt  A  QUANTITY, " , P«qt C X > , L INC1 > 

1900  I  WAGE  16A3X.6D. 1 1 X " t " , 5D . 2D8X " * " , 10D.2D 
1 9 1 1  PRINT  "COMPONENT" ,  “  QT_Y  .  " ,  "  UNIT  COST". "COST" 


1 920  PRINT 

1934  FOR  Y«1  TO  U<X) 

1944  PRINT  USING  1 940; C»p*< X, Y> , L <X, V > , UccupYX, Y ) , Cpst < X , Y> 

1954  PRINT 
1964  NEXT  Y 

1974  IMAGE  20A34X"*", 1 0D . 2D 
1940  PRINT  TA8<57>  ,  " - • 

1990  PRINT  USING  1970; "TOTAL  HARDWARE  COST, “,H«st (X) 

2400  PRINT 

2410  PRINT  USING  1970; "PtA  COST, ■ , P**t <X> 

2020  PRINT 

2030  PRINT  USING  1970;“QA  COST, “ , Q»st <X) 

2040  PRINT 

2050  PRINT  USING  1970; "ESIP  COST , “ , Esst < X > 

2060  PRINT  TAB < 57),  “ - ■ 

2070  PRINT  USING  1970;“TOTAL  BUY  COST, “ , Rdst <X> 

2000  PRINT 
2090  FIXED  2 

2100  PRINT  "ROUND  UNIT  COST,  *“,fist<X) 

2110  IF  Yr c <  >0  THEN  2790 

2120  IF  Esc  <2)00  THEN  2813 

2130  NEXT  X 

2140  NEXT  T 

2150  STOP 

2164  PRINTER  IS  0 

2170  PRINT  PAGE, TAB<35), “INPUT  DATA" , LlN( 1 ) 

2180  STANDARD 

2190  PRINT  "ROUND  * ; RndPCX) , "BUY  YEAR" ; Yrs, LIN< 1 > 

2200  IF  Byqt<X>«0  THEN  2220 
2210  GOTO  2240 

2220  PRINT  “THERE  IS  NO  BUY  OF  ";Rnd*<X);“  THIS  YEAR." 

2230  GOTO  2480 

2240  PRINT  "BUY  QTY-" ; Byqt <X) , "PRIOR  BUY  QTY» “ ; Prqt < X > 

2250  PRINT  “REF  OTY» “ ; RFqt IX) , "PtA  OT Y» “ ; P*qt ( X ) 

2260  IF  Esst <X)< 100  THEN  2290 

2270  PRINT  "PIA  COST»*";P»st<X), "Q  A  COST.*" ; Q»st C X > ,"ES IP  COST.* “ ; Esst C X > , L I N < 
1) 

2280  GOTO  2300 

2290  PRINT  “PiR  COST.*"jP«st  <X),  "0  A  COST.*" ; Q*st < X > , "ES I P  COST*"  ;  Esst  <X)  ;  « 5s  HA 
RDWARE  C0STU,LIN<.1) 

2300  FOR  Y«1  TO  U<X) 

2310  PRINT 

2320  PRINT  Cmp*<X, Y) , "COMPONENT"; Y; “OF";U<X> 

2330  PRINT  "PROCUREMENT  FACT.  ";Pf<X,Y);  "5i"  ,  "COMP.  UC«»" ; UccmpCX, Y) 

2340  IF  Ucc»p(X,Y)>0  THEN  2470 
2350  IF  C»ps(X,  Y)»0  'THEN  2420 
2360  IF  Vp C X , Y ) <  >0  ^HEN  2390 

2370  PRINT  "SHARED  DES I G.  " ;  C«ps  <  X,  Y  ) ,  "  1  st  UC»* ";  I  uc  <  X,  Y)  ,  "LEARN  I  NG« B»(  X ,  Y );“  V. 

H 

2380  GOTO  2430 

2390  PRINT  "COMPONENT  SHARED  WITH  PRIOR  ROUND  " 

2400  Vp ( X, Y  >*0 
2410  GOTO  2470 

2420  PRINT  "COMPONENT  NOT  SHARED  ","lst  UC-* “ ; I uc (X , Y ) , "LEARN !NG« " ; B*< X ,  Y )  ;  “ V 

2430  FOR  Z-l  TO  3 

2440  PRINT  "VENDOR" ; 2; "OF  3" 

2450  PRINT  "•/.  OF  BUY  BY  VENDOR  ";Vt  (X, Y, 2  > ;  “PRIOR  QTY  BY  VENDOP "  J  Vpqt  <  X,  Y ,  Z  ' 

2460  NEXT  2 

2470  NEXT  Y 

2480  PRINTER  IS  16 

2490  INPUT  "ARE  ROUND  DATA  INPUTS  OX’  1-YES  0-NO",Ans 
2500  IF  Ans«0  THEN  290 
2510  RETURN 
2520  Y«1 

2530  IF  S*C(npt  < X  ,  Y  )  THEN  2570 
2540  IF  Y-U  <  X )  THEN  630 
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2550  Y-Y*l 
2560  GOTO  2530 
2570  X-F 
2500  Y«G 
2590  GOTO  770 
2600  F-X 
2610  G-Y 
2620  S"Caps  ( X,  Y> 

2630  X«X*1 

2640  IF  X>U  THEN  2730 
2650  Y- 1 

2660  IF  Caps <  X , Y )»S  THEN  2700 
2670  Y-Y+t 

2600  IF  Y>U<X>  THEN  2630 
2690  GOTO  2660 
2700  Az«Vpqt<X,Y, 1) 

2710  Bz-Vpqt  <X, Y, 2> 

2720  Cz-Vpqt  <X, Y, 3) 

2730  X-F 
2740  Y-G 

2750  Vpqt  <X, Y, 1 >«Az 
2760  Vpqt<X,Y,2>-Bz 
2770  Vpqt (X, Y, 3>»Cz 
2700  GOTO  700 

2790  PRINT  "ESCALATED  TO  CONSTANT  FY  -;Yrc;“  DOLLARS  BY  FACTOR  OF  “;Esc< 
2000  PRINT 
2810  E*Esc  < 1 > 

2011  GOSUB  2620 
2612  IF  Esc  <2)«0  THEN  2130 
2013  E-Esc<2) 

2614  PRINT 

2815  PRINT  "ESCALATED  TO  THEN  YR  DOLLARS  BY  FACTOR  OF  ■;£ 

2016  PRINT 
2617  GOSUB  2620 
2010  PRINT 

2819  GOTO  2130 

2820  PRINT  -COMPONENT-. -  QTY. -,-  UNIT  COST-. -COST- 
2830  PRINT 
2840  Hu-0 

2850  FOR  Y-l  TO  U<X> 

2060  Ucp-Uccap( X , Y ) *E 
2070  Cp-Cpst <X, Y>«E 

2080  PRINT  USING  1 900; Cap* < X, Y> , L < X, Y> , Uc p , Cp 
2890  PRINT 
2900  Nu-Hw+Cp 
2910  NEXT  Y 

2920  PRINT  TABC57 ) ,  * - * 

2930  PRINT  USING  1970; -TOTAL  HARDWARE  COST”, Hu 
2940  PRINT 
2950  Pa-Past <X)*E 

2960  PRINT  USING  1970; -PkA  COST”, Pa 
2970  PRINT 
2980  Oa-Oast (X)«E 

2990  PRINT  USING  1970; *8A  COST-.Oa 

3000  Es-Esst  <X)»E 
3010  PRINT 

3020  PRINT  USIHG  1970;"ESIP  COST",Es 
3030  Tot-Hu+Pa+Oa+Es 

3040  PRINT  TAB (57) , ■ - 

3058  PRINT  USING  1970; -TOTAL  BUY  COST*, Tot 
3060  Aug-Tot/'Byqt  <X> 

3070  PRINT 

3000  PRINT  “ROUND  UNIT  COST,  *-;Awg 
3090  RETURN 
3100  END 
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